AD-A132  098 
UNCLASSIFIED 


DEP(DRVING  ECONOMICS  PROGRAM)  A  COMPUTER  PROGRAM  FOR  i/1^^ 

EVALUATING  LUMBER  DRVING  COSTS  AND  INVESTMENTS^) 

FOREST  PRODUCTS  LAB  MADISON  WI  S  HOLMES  ET  AL.  JUL  83 
FSGTR-FPL-37  F/G  11/12  NL 


Lfl 


Forest  Service 

Forest 

Products 

Laboratory 


A  Computer  Program  for 
Evaluating  Lumber  Drying 


Abstract 

The  DEP  computer  program  is  a  modified  discounted  cash 
flow  computer  program  designed  for  analysis  of  problems 
involving  economic  analysis  of  wood  drying  processes. 
Wood  drying  processes  are  different  from  other  processes 
because  of  the  large  amounts  of  working  capital  required  to 
finance  inventories,  and  because  of  relatively  large  shares 
of  costs  charged  to  inventory  insurance  and  tax.  DEP's 
flexibility  allows  calculation  of  rate  of  return,  break-even 
transfer  prices,  or  break-even  facilities  costs.  Data  input 
requirements  are  simplified  into  basic  analytical  components 
that  are  explained  and  illustrated  with  example  analyses. 
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Introduction 

Because  of  the  time  and  energy  required  for  drying  lumber, 
drying  costs  are  typically  among  the  highest  in  wood 
products  manufacturing.  If  cur.ent  trends  in  costs  of 
working  capital  and  energy  continue,  drying  costs  can  be 
expected  to  become  an  increasingly  larger  part  of  the  total 
manufacturing  cost  unless  more  effective  lumber  drying 
practices  can  be  identified. 

Analysis  of  such  problems  is  a  complex  process  requiring 
identification  of  investment  and  processing  costs  associated 
with  the  value  added  by  lumber  drying.  We  developed  DEP 
(Drying  Economics  Program)  to  meet  the  computational 
needs  for  such  analyses.  In  this  publication  we  describe  the 
use  of  the  DEP  computer  program  and  offer  examples  of 
analyses,  r- — 

Program 

DEP,  written  in  Fortran  for  use  on  UNIVAC  1108  and  1110 
systems  (appendix  C),  is  basically  a  discounted  cash  flow 
model.  It  differs  from  other  discounted  cash  flow  computer 
programs  because  of  the  explicit  computational 
requirements  of  drying  projects  to  provide  for  large  and 
variable  amounts  of  working  capital  investment  in  lumber 
inventories,  associated  operating  costs  in  inventory 
insurance  and  taxes,  and  because  of  the  energy-intensive 
characteristics  of  drying  processes. 


'  Maintained  at  Madison.  Wis,  in  cooperation  with  the  University  of 
Wisconsin 

*  Stewart  Holmes  is  currently  a  hardwood  mill  manager  in  Paraguay  for 
Nesalar  S.A.I..  Foz  do  Iguacu.  Brazil  Edward  Bilek  is  a  Research  Assistant, 
Department  of  Forestry.  University  of  Minnesota.  St.  Paul 


In  general,  DEP  is  designed  to  compute  the  after-tax  time 
value  of  investment  capital,  operating  costs,  and  revenue 
cash  flows  in  terms  of  four  principal  types  of  investment 
criteria:  (1)  present  value  of  the  investment,  (2)  rate  of 
return  on  investment  (table  1 ),  (3)  total  unit  cost(s)  of 
production  including  taxes  and  profit  (table  2),  and  (4) 
maximum  investment(s)  that  can  be  made  to  obtain  a 
minimally  attractive  rate  of  return  (table  3). 

The  present  value  of  the  investment  (PVI)  is  defined  by  the 
discount  rate  used.  PVI  is  the  present  value,  or  net  present 
worth,  of  the  stream  of  annual  net  cash  flows  discounted 
by  the  discount  rate.  If  the  discount  rate  is  the  same  as  the 
rate  of  return  that  could  be  realized  from  alternative 
investments  with  similar  risk  (the  opportunity  cost  of  money 
capital),  PVI  may  be  used  as  a  basis  for  comparing 
alternative  investment  opportunities. 

Rate-of-return  (ROR)  criteria  for  DEP  are  of  two  types. 
Internal  ROR  is  the  particular  rate  of  interest  required  to 
discount  the  stream  of  annual  net  cash  flows  to  a  present 
value  of  zero  (tables  1  and  2).  For  complex  investment 
projects  where  there  may  be  more  than  one  internal  ROR, 
DEP  will  compute  only  the  internal  ROR  closest  to  the 
discount  rate  used.  The  second  type  of  ROR  is  a  composite 
that  expresses  the  ROR-to-equity  capital  invested  at  the 
initiation  of  a  project  (table  3).  This  is  referred  to  as  a 
composite  because  it  is  computed  as  an  ROR-to-equity 
capital  as  a  composite  of  the  rate  of  interest  specified  for 
monies  that  may  be  borrowed  to  finance  the  project  and  the 
rate  of  interest  specified  for  reinvested  cash  surpluses. 

The  total  unit  cost  of  production  (cost  per  dry  unit  of  lumber 
processed)  is  the  price-volume-cost  break-even  unit  product 
price(s)  required  to  yield  an  after-tax  profit  consistent  with 
either  the  internal  or  composite  ROR.  The  break-even 


NITI4L  INVESTMENT— TEAS  0  EFFECTIVE  TAX  RATE  .5268  ORIGINAL  CASH  EQUITY  $  0.  V.C./TOT  TRAN  REVa  .6120 

FACILITIES  COST  %  1127000.  BORROWING  RATE  .0000  ENDING  VALUE  OF  EQUITY  S1R710956.  F.C./TOT  TRAN  REVa  .0000 

WORKING  CAPITAL  *  RR6RR18.  RFINVESTHENT  RATE  .0000  FACILITIES  SALVAGE  VALUE  $  755600.  DEPR./T.T.R.  *  .003R 

TOTAL  INVEST.  $11291437.  INTERNAL  ROR  .2610  P.V.  OF  I NVEST .  (I  a .  1 500 )  *  8001619.  TAX  COSTS/T.T.R.  a  .1897 

A  .  T  .  PROFIT/T.R.  a  .1705 
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prices)  indicates)  the  price<s)  at  which  products  must  be 
sold  to  allow  for  selling,  operating,  tax,  and  capital  recovery 
costs  as  well  as  the  profits  prescribed  by  the  discount  rate 
used. 

The  maximum  investment(s)  that  can  be  made  and  still  yield 
a  minimally  attractive  ROR  is  again  a  price-volume-cost 
break-even  calculation.  In  DEP,  total  investment  is  defined 
as  the  sum  of  the  facilities  and  working  capital  investment 
requirements.  To  obtain  the  maximum  investment 
amount(s),  overhead  and  depreciation  data  inputs  are 
adjusted  to  correspond  to  the  facilities  costs  as  fixed 
percentages  (table  3). 


Data  Requirements 

Eighteen  input  variables  must  be  assigned  values  in  the 
data  deck.  The  user  must  specify  output  and  sequential 
analysis  options.  Blank  coding  forms  are  given  in  appendix 
A.  An  explanation  of  input  variables  is  in  appendix  B. 

The  data  deck  consists  of  five  types  of  data  cards  (figs.  1 
and  2). 

CARO  TYPE  1:  Title  card.  One  card  only. 

The  title  names  the  investment  project  analyzed. 

CARD  TYPE  2:  Data  and  program  control  card.  One  card 
only. 

The  Type  2  card  is  used  to  enter  two  types  of  DEP  data: 

(1)  Costs  and  investment  estimating  factors  that  can  be 
assumed  to  remain  constant  over  the  period  of  analysis  and 

(2)  values  that  will  be  used  by  the  program  to  select  the 
types  of  analyses  to  be  run  and  to  specify  the  number  of 
output  copies  to  be  printed. 

Inventory  Tax 

Inventory  tax  is  the  tax  rate  applied  to  the  drying  lumber  in 
inventory  when  taxes  are  assessed  (the  basis  upon  which 
taxes  are  applied  will  be  discussed  in  the  section  on  "Tax 
Rate”).  The  particular  tax  rate  used  will  depend  on  the 
county  where  the  dry  or  dried  lumber  is  stored.  For  tax 
purposes  it  is  usually  advantageous  to  value  the  lumber  at 
the  lower  of  cost  or  market. 

Working  Capital 

Working  capital  is  the  monies  required  to  maintain  raw 
material,  goods  in  process,  and  accounts  receivable 
necessary  for  the  future  production  of  revenues.  Working 
capital  also  includes  those  operating  costs  accrued  by 
goods  in  process  and  finished  products.  Operating  costs 
include  total  fixed  and  variable  costs. 

Working  capital  requirements  are  a  beginning-of-period 
expense.  DEP  computes  them  as  year-ending  values  for  the 
year  preceding  the  period  requirements.  For  this  reason  the 
first  year's  working  capital  requirements  are  denoted  (in  the 
program  output)  as  Year  Os  requirements.  This  method  of 
assignation  and  computation  continues  through  each  year 
of  the  project  s  life 


Working  capital  requirements  accrue  to  the  lumber  starting 
from  the  day  they  enter  inventory  and  end  the  day  they  are 
cash  credited.  This  may  be  after  they  are  received  by  a 
buyer,  or  when  the  lumber  account  is  transferred  in  the 
books  to  another  division  of  the  same  company.  Capital 
requirements  include  those  required  for  the  initial  purchase 
and  for  all  subsequent  handling  costs.  Because  lumber 
must  lie  idle  in  the  air-  and  kiln-drying  facilities,  not  being 
able  to  use  the  funds  tied  up  in  inventory  represents  an 
opportunity  cost  (return  on  investment  capital)  against 
which  final  operating  profitability  must  be  compared. 

The  factor  used  in  the  program  to  compute  working  capital 
requirements  is  the  weighted  average  of  time  lumber 
remains  unredeemed  as  a  cash  transaction.  Percentage 
amount  of  annual  lumber  throughput  in  inventory  is  used  as 
the  factor  for  program  computations.  This  factor  is 
multiplied  times  the  year's  annual  operating  costs  to 
determine  working  capital  requirements. 

Under  other  (perhaps  more  typical)  manufacturing 
conditions  it  might  be  possible  to  assume  a  30-day  working 
capital  supply  and  use  the  percentage  factor  0.0822  (30  - 
365  “  0.0822). 

Tax  Rate 

In  general  a  variety  of  taxes  is  levied  yearly  against  real  and 
personal  property,  including  inventory.  Local  tax  rates  may 
be  different  for  every  county  in  a  state,  and  because  taxes 
may  be  applied  to  real  and  personal  property  according  to  a 
schedule  that  may  change  every  year  according  to  inflation 
and  other  economic  factors,  it  is  necessary  to  go  to 
company  records,  or  to  the  local  tax  assessor,  to  get 
accurate  data  on  property  evaluation  for  tax  purposes. 

Federal  and  state  income  taxes  typically  take  about  50 
percent  of  taxable  corporate  income.  Taxes  are  an 
important  consideration  because  of  their  effects  on  both 
amounts  and  timing  of  after-tax  net  cash  flows — especially 
when  alternatives  being  considered  have  equal  PVI" s  or 
ROR's,  or  both,  on  a  before-tax  basis  but  not  on  an  after¬ 
tax  basis.  This  is  most  likely  when  there  are  such 
considerations  as  investment  tax  credits  on  new  machinery 
and  different  state  and  local  tax  rates. 

The  tax  rate  used  in  DEP  should  represent  the  effective 
Federal  and  state  income  tax  rates.  This  rate  is  entered  in 
the  program  and  is  applied  automatically  to  taxable  income. 

Discount  Rate 

The  discount  rate  chosen  for  calculation  of  the  present 
value  of  investment  should  represent  the  annual  compound 
rate  of  return  that  might  reasonably  be  expected  from  well 
chosen  investments  in  other  ventures  with  similar  risk.  In 
this  way,  PVI  can  be  used  as  a  comparative  measure  of 
venture  profitability.  That  is,  if  PVI  is  zero  the  venture 
analyzed  is  equal  in  investment  earning  to  alternative 
opportunities.  If  PVI  is  greater  the  venture  analyzed 
indicates  greater  dollar  earning  potential  than  other 
alternatives,  and  vice  versa.  The  discount  rate  chosen 
represents  the  opportunity  cost  of  investment  monies 
required  for  the  financing  of  inventories  and  processing 
costs. 
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Years  Considered 

DEP  allows  computations  based  on  2  to  20  years  beginning 
from  the  time  '  end  of  Year  0."  The  number  the  user  selects 
will  be  the  investment  time  frame  for  the  life  of  the  project. 

It  may  also  be  used  to  provide  a  standardized  time  frame 
that  may  exceed  the  useful  life  of  the  project  but  which 
serves  as  a  basis  for  comparison  with  projects  having 
different  useful  or  economic  lives. 

The  "useful  life"  specified  for  the  project  evaluation  should 
be  consistent  with  the  concept  of  economic  life  and 
depreciation  range  used  for  the  facility.  The  Federal  Internal 
Revenue  Service  Class  Life  Asset  Depreciation  Range  may 
be  used  for  estimating  the  useful  life  of  a  facility.  Any 
modifications,  additions,  or  repairs  that  would  extend  the 
useful  life  of  the  facility,  or  increase  its  productive  capacity, 
would  normally  be  considered  as  new  investment  costs. 

Output  Copies 

DEP  will  compute  and  provide  printed  output  for  three  types 
of  analyses.  When  the  user  places  a  number  in  one  or  more 
of  three  different  positions,  the  computer  is  signaled  to 
perform  a  specific  type  of  analysis.  A  number  from  one  to 
nine  will  indicate  the  number  of  copies  of  printed  outputs  to 
be  produced. 

Financial 

The  computer  figures  cash  flows  before  and  after  taxes  and 
prints  associated  economic  criteria  used  for  decisionmaking. 

Price/Cost  Break-Even 

The  computer  totals  the  unit  cost  of  production  in  terms  of 
the  unit  price  required  to  generate  revenues  equal  to  the 
associated  investment,  operating  costs,  taxes,  and  profits 
established  by  the  data  inputs. 

Facilities  Investment  Break-Even 

The  program  computes  the  facilities  investment  costs, 
associated  levels  of  overhead  cost,  depreciation,  and 
working  capital  requirements  that  will  break  even  in  the 
context  of  other  values  of  price-cost-volume  data  input.  Ad 
valorem  overhead  costs  and  depreciation  are  adjusted  as 
constant  percentages  of  facilities  costs.  In  addition,  the 
program  recalculates  working  capital  as  necessary  based 
on  these  adjusted  overhead  costs. 

Original  Cash  Investment 

The  original  cash  investment  is  the  original  amount  of  equity 
used  to  initiate  a  particular  project;  it  may  consist  of  funds 
from  without  or  within  the  firm.  The  program  assumes  the 
value  to  be  an  end-of- Year-0  amount.  That  is,  that  the 
money  is  available  at  the  start,  and  not  at  some  time  during 
the  project. 

If  an  amount  is  entered,  DEP  computes  a  composite  ROR 
and,  with  it,  annual  interest  income  and  expense  cash 
flows,  and  the  annual  money  capital  deficit  or  surplus 
position  of  the  project 

If  no  amount  is  entered  here,  an  internal  ROR  will  be 
computed  that  may  be  used  to  compare  the  project  with 
alternative  investment  opportunities. 


Borrowing  Rate 

DEP  allows  specification  of  a  borrowing  rate  for 
computations  of  the  composite  ROR.  The  amount  to  be 
borrowed,  time  for  repayment,  method  of  repayment, 
security  provided  against  the  funds  borrowed,  anticipated 
conditions  in  the  different  money  markets,  etc.,  will  all 
typically  affect  the  amount  of  interest  that  will  have  to  be 
paid  for  borrowed  capital.  DEP  computes  borrowing 
requirements  and  payback  of  such  financing  as  rapidly  as 
net  cash  flows  will  permit.  Truly  long-term  borrowing  costs 
should  be  entered  on  operating  cost  for  composite  ROR 
calculations. 

Reinvestment  Rate 

The  reinvestment  rate  is  used  when  computing  the 
composite  ROR  for  specifying  short-term  interest  earning 
on  monies  reinvested  from  operating  cash  surpluses.  A 
cash  surplus  may  become  available  either  during  the  course 
of  the  project  or  after,  when  certain  assets  may  be 
liquidated.  In  the  latter  case — i.e.,  when  the  project's 
terminal  year  occurs  prior  to  the  year  ending  a  standardized 
time  frame — the  program  will  use  the  discount  rate  to 
determine  the  post-terminal  interest  income  that  might  be 
earned.  Such  post-terminal  calculations  are  done  for  both 
composite  and  internal  ROR. 

CARD  TYPE  3:  Annual  price-volume-cost  data.  One  card  for 
each  year,  up  to  21  cards. 

The  DEP  program  assumes  that  all  values  entered  on  the 
Type  3  cards  are  year-ending  values.  The  data  typically 
used  to  hypothesize  the  cash  flow  characteristics  of  an 
investment  project  are  either  data  projections  or  forecasts. 

In  either  case,  the  Type  3  card  data  should  be  prepared  as 
year-ending  values. 

Selling  Price 

The  selling  price  is  the  value  assigned  a  dry  unit  of  lumber, 
usually  1,000  board  feet  (1  MBF).  In  evaluating  a  system  in 
which  there  are  many  types  of  drying  lumber,  the  selling 
price  may  have  to  represent  an  average  for  the  mix. 

It  is  not  necessary  to  specify  the  exact  selling  price  when 
doing  the  "price/cost  break-even"  analysis,  because  the 
selling  price  is  computed  (as  described)  as  the  price 
required  to  cover  other  price-volume-cost  inputs.  However, 
hypothetical  values  must  be  entered  to  indicate  anticipated 
changes  in  relative  values  among  periods.  For  example, 
were  a  7  percent  price  inflation  rate  expected,  $100  may  be 
entered  for  the  first  year  and  $107  for  the  second  year, 
etc.,  to  establish  the  program  s  computational  routine  of  a  7 
percent  per  year  increase.  Or,  if  in  3  years  it  were  assumed 
there  would  be  a  business  downturn,  relative  cost  inputs 
could  be  adjusted  to  indicate  the  expected  effects  on  selling 
price. 

Yard  Throughput 

Yard  throughput  is  the  volume  of  lumber  dried  and  passed 
through  inventory  in  1  year.  The  volume  is  multiplied  by  the 
selling  price  to  calculate  annual  revenue  generated  by  the 
drying  facilities. 
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Materials  and  Handling 

These  include  equipment  lumber  (pile  foundations  and 
bolsters),  shipping  and  handling,  and  electricity  and  fuel 
costs  for  the  equipment  used  for  handling  inventory.  These 
are  part  of  the  total  variable  costs  of  the  lumber  drying 
process.  They  vary  directly  with  the  volume  of  inventory 
processed. 

Labor 

In  DEP,  the  labor  category  includes  all  labor  costs 
(optionally  including  supervisory  costs)  including  costs  for 
fringe  benefits — e  g.,  insurance,  social  security  payments, 
etc.  In  a  traditional  accounting  sense,  a  supervisor's  salary 
might  be  considered  overhead  cost.  For  illustration,  it  was 
decided  to  combine  labor  and  supervisory  costs  to  form  a 
basic  "labor' -related  grouping  whose  "sensitivity"  could  be 
analyzed. 

Fixed  Manufacturing 

Fixed  costs  are  those  associated  with  the  physical  plant, 
that  must  be  paid  regardless  of  output.  Fixed  costs  may 
include  rental,  interest  on  borrowed  funds,  insurance 
premiums,  salaries  of  top  management,  property  taxes, 
utility  service  charges,  etc. 

Overhead 

Overhead  costs  include  repair  and  maintenance,  property 
tax,  facilities  insurance,  travel,  telephone,  and  contingency 
costs. 

Facilities 

These  are  the  costs  associated  with  establishing  the  fixed 
assets  required  for  revenue-producing  operations.  These 
investments  may  include  costs  for  replacements,  additions, 
modifications,  or  repairs  that  may  be  incurred  to  increase  a 
facility's  operating  capacity,  or  to  extend  its  useful  life. 

Initial  facilities  costs  are  considered  part  of  end-of-Year-O's 
investment.  They  continue  to  be  treated  as  end-of-year 
investments  as  such  costs  may  occur  in  subsequent  years. 
Typical  investment  or  "  facilities"  costs  are  those  for  land, 
machinery,  mobile  equipment,  engineering,  and  other  costs 
needed  to  establish  assets  necessary  for  processing 
operations. 

Investment  Tax  Credit 

A  credit  of  1 0  percent  of  the  value  of  investment  in 
manufacturing  equipment  (having  an  estimated  useful  life  of 
3  years  or  more)  is  applied  against  current  tax  liabilities. 
According  to  IRS  rules,  this  credit  may  not  exceed  the 
current  year's  tax  liability.  In  DEP,  however,  investment  tax 
credit  and  all  tax  losses  are  all  taken  in  the  year(s)  they 
occur  with  no  carry-back  or  carry-forward.  This  assumption 
is  based  on  the  presumption  that  there  will  always  be  a 
sufficient  tax  liability  for  a  company  to  take  advantage  of 
the  tax  "benefits'  of  any  investment  tax  credit. 

Depreciation 

Fixed  depreciable  assets — those  to  which  depreciation 
allowances  may  apply — are  considered  to  be  those  tangible 
assets  that  are  related  to  the  lumber  drying  operations  and 
inventory  preparation  and  storage,  and  that  will  wear. 


deteriorate,  or  waste  over  time.  These  assets  fall  into  four 
broad  categories: 

1.  Land  improvements  such  as  fences,  drainage  systems, 
grading,  pile  bases,  and  bolsters  related  to  the  lumberyards 
and  necessary  for  their  functioning, 

2.  Buildings  to  protect  equipment,  roofs  for  stored  lumber, 
sheds  to  protect  stickers,  etc., 

3.  Equipment  for  assembling  units  for  drying,  and 

4.  Forklifts,  pickup  trucks,  and  other  mobile  equipment. 

These  classifications  do  not  include  the  land  on  which 
lumber  is  stored  as  land  is  a  nondepreciable  asset. 

Because  depreciation  allowances  typically  have  significant 
impact  on  a  project's  after-tax  net  cash  flows,  depreciation 
should  be  considered  carefully. 

CARD  TYPE  4:  Sequential  run  control  card.  One  card  only. 
A  sequential  run  control  card  must  follow  the  last  Type  3 
card  used  in  the  data  deck.  The  number  entered  on  this 
card  determines  the  number  of  Type  5  cards  read  and  the 
number  of  sequential  DEP  analyses  that  will  be  computed. 
The  purpose  of  the  sequential  run  option  is  to  simplify  the 
task  of  preparing  data  when  Type  3  card  data  may  be  used 
as  the  prototype. 

If  the  Type  4  card  is  left  blank,  analyses  will  be  computed 
and  printed  on  the  basis  of  the  data  entered  on  the  Type  2 
and  3  cards,  and  no  Type  5  cards  need  to  be  added  to  the 
data  deck.  If  a  number  1  through  10  is  entered  on  the  Type 
4  card,  an  unaltered  analysis  of  Type  2  and  3  card  data  will 
be  omitted  unless  one  or  more  of  the  following  T ype  5 
cards  submitted  is  entirely  blank. 

CARD  TYPE  5:  First  year  data  card.  One  card  for  each 
sequential  analysis,  up  to  10  cards. 

By  using  the  sequential  DEP  analysis  option  a  series  of 
analyses  may  be  made  on  the  basis  of  adjusted  Type  2  and 
3  card  data — i.e.,  original  cash  investment,  borrowing  rate, 
lending  rate,  unit  price,  unit  sales,  unit  manufacturing  costs, 
other  variable  costs,  fixed  manufacturing  costs,  and 
overhead  costs.  The  price-volume-cost  data  entered  on 
Type  5  cards  should  represent  only  first-year  values.  The 
DEP  program  will  compute  the  annual  sequence  of  values 
as  a  percentage  of  Type  3  data  established  by  the  ratio  of 
card  5  to  card  3  first-year  values. 

Printed  Output 

Printed  output  consists  of  a  modified  operating  statement, 
with  yearly  cash  flows  followed  by  a  sensitivity  analysis 
(tables  1,  2.  and  3).  The  program  will  solve  for  different 
variables  on  the  income  statement,  depending  on  the 
analytic  options  chosen  (figs  1  and  2).  The  sensitivity 
analysis  at  the  bottom  of  the  output  indicates  the  sensitivity 
of  the  internal  or  composite  rates  of  return  to  changes  in 
five  key  input  variables.  Sensitivity  is  computed  as  point 
computations  under  stated  change  of  revenues,  costs,  and 
investment.  The  sensitivity  analysis  aids  the  identification  of 
input  variables  having  the  greatest  impact  on  rate  of  return. 
Once  identified,  these  key  variables  can  be  analyzed  more 
carefully. 
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Assumptions  and  Limitations 

Although  DEP  is  a  powerful  tool  for  analyzing  investments 
in  lumber  drying  facilities,  some  simplifying  assumptions 
have  been  made.  Because  these  assumptions  may  limit  the 
scope  of  usefulness,  they  are  here  clearly  identified. 

1 .  Investment  tax  credits  and  income  tax  refunds  due  to 
early  losses  are  taken  in  the  year  in  which  they  occur.  This 
implies  that  the  firm  has  sufficient  profits  from  other 
ongoing  activit.es  to  take  advantage  of  all  tax  credits. 

2.  All  cash  flows  occur  on  the  final  day  of  each  period  of 
analysis.  Although  this  method  does  not  represent  typical 
patterns  of  business  transactions  it  does  provide  an 
approximating  and  easily  definable  technique. 

3.  For  composite  ROR  calculations,  all  borrowing 
requirements  are  assumed  to  be  secured  as  short-term 
loans  with  repayment  as  rapidly  as  operating  cash  flows  will 
permit.  No  loans  for  the  project  will  be  part  of  the  firm's 
permanent  capital  structure. 

4.  Borrowing  and  reinvestment  (lending)  rates  are 
considered  constant  over  the  periods  analyzed. 

5.  Divestment  of  facilities  occurs  at  the  termination  of 
operating  cash  flows,  with  no  book  gains  or  losses  on  the 
sale  or  salvage  value  of  assets. 

Summary 

Because  of  the  particular  consideration  the  DEP  program 
provides  for  lumber  drying  investment  projects,  it  can  be  a 
valuable  tool  to  assist  in  the  analysis  of  investments  in 
lumber-drying  facilities.  DEP's  flexibility  allows  the 


calculation  of  rate  of  return,  break-even  transfer  prices,  or 
break-even  facilities  costs.  Data  input  requirements  are 
simplified  into  basic  analytical  components  that  may  be 
easily  modified  for  analyses  that  only  require  increases  or 
decreases  of  initial  price-volume-cost  input  data. 

Additional  Reading 

Harpole,  George  B.  A  cash  flow  computer  program  to 
analyze  investment  opportunity  in  wood  products 
manufacturing.  USDA  For.  Serv.  Res.  Pap.  FPL  305.  For. 
Prod.  Lab.,  Madison,  Wis.;  1978. 

Harpole,  George  B.,  Peter  J.  Ince,  John  L.  Tschernitz, 
Edward  Bilek.  A  wood  and  bark  fuel  economics  corr  >r 
program  (FEP).  USDA  For.  Serv.  Res.  Pap.  FPL  415 
Prod.  Lab.,  Madison,  Wis.;  1982. 

Ince,  Peter  J.  How  to  estimate  recoverable  heat  energ' 
wood  or  bark  fuels.  USDA  For.  Serv.  Gen.  Tech.  Ref 
FPL-29.  For.  Prod.  Lab.,  Madison,  Wis.;  1979. 

Ince,  Peter  J.  and  Philip  H.  Steele.  EVALUE:  A  computer 
program  for  evaluating  investments  in  forest  products 
industries.  USDA  For.  Serv.  Gen.  Tech.  Rep.  FPL-30. 

For.  Prod.  Lab.,  Madison,  Wis.;  1980. 

Ince,  Peter  J.  COMPARE:  A  method  for  analyzing 
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DEP  DATA  CODING  RECORD  Date 


Appendix  A — Data  Coding  Forms 


«  >  c 

k-  C  4,  U, 
•«  £  w 
E  i> 
k*  (X 


t«  •<-*  T3  > — ' 

u  VI  (i  N 

<«  C  k-  — 

H  O  «J 

>-  o 


•  41  4 

W  C 

^  3  ^ 

O  O  ^  U. 


4)  > 

>  k<  X  v£> 
C  O  Ua 


*-»  I  k-  o 

<Q  ll  <J  *4 

Q  t  vi  *J 


Data  Investment 

de-  Yard  Material  and  Overhead  Facilities  tax  credit 

scrip-  Unit  price  throughput  handling  costs  Labor  costs  Utilities  costs  costs  depreciation  Year  Card 

tion  (F7.3)  (F8.0)  (F10.3)  (F10.0)  (F10.0)  (F10.0)  (F10.0)  (F10.0)  No. 


Appendix  B — Principal  Equations  of 
the  Drying  Economics  Program 
(DEP) 


Most  computations  involved  with  calculating  the  output  for 
the  drying  economics  program  involve  only  addition  and 
subtraction.  The  more  complex  calculations  are  explained: 

Working  capital 

Because  this  money  must  be  on  hand  at  the  beginning  of 
the  year,  working  capital  is  entered  as  an  end-of-year  value 
for  the  preceding  year.  Working  capital  (WRK)  is  computed 
as: 

WRK(K)  =  (TVC(K  +  1)  +  TFC(K  +  1)  -  ITI(K  +  1))  * 
WKR  -  TWC(K  -  1) 

where 

K  =  current, 

TVC  =  total  variable  cost, 

TFC  =  total  fixed  cost, 

ITI  =  inventory  tax  and  insurance, 

WKR  =  percent  ot  annual  production  in  inventory,  and 
TWC  =  total  working  capital. 

After-tax  profit 

ATP  =  (REV  -  (INT  +  TVC  +  TFC  +  DEP))  *  (1  - 
TXRT) 


where 

REV  =  revenue, 

INT  =  interest  expense  (used  only  to  compute 
composite  rate  of  return), 

DEP  =  depreciation,  and 
TXRT  =  tax  rate. 


After-tax  earnings 

ATE  =  ATP  +  DEP 


After-tax  net  cash  flow 

ATNCF(K)  =  ATE(K)  -  INV(K) 

where 

INV  =  year's  investment. 


Accumulated  net  cash  flow 

ANCF(K)  =  ANCF(K  -  1)  +  ATNCF(K) 
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Appendix  C— Listing  of  Drying 
Economics  Computer  Program  (DEP) 


i . 
?. 
3. 
9. 

5. 

6. 
7. 

e. 

9. 
10. 
11 . 
12. 
13. 
19. 

15. 

16. 

17. 

18. 

19. 

20. 
21  . 
22. 
23. 
?«. 
25. 
2fe. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 

38. 

39. 
«0. 
91  . 

92. 

93. 
99. 

95. 

96. 

97. 

98. 

99. 
50. 
51  . 

52. 

53. 
59. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 


0 1  MENS  ION  ACF(20),  ATE  (20)*  ATP(20),  BORS(IO), 

1  DEP (20 ) »  DEPR ( 20 ) ,  0£PX(20),  EflUI (20) *  FAC(20), 

2  FACX(20),  FMFC (20) ,  FMFS(lO),  FXR(20),  GRIR(20), 

3  I NVE ( 20  )  ,  I RR ( 27 ) #  NCF ( 20  )  *  0RES(10),  OTFC(20), 

9  OT VC ( 20 ) #  OTVSdO),  PC  ON ( 20  ) ,  REIN(20),  RTIS  ( 1  0)  # 

5  TITLE (13),  TFCx  (?0) ,  TMFCCPO),  TmvC (20) , 

6  TOVC (20)#  TOWR(20),  TSVC(20),  TVCX(20),  UmFC(20)» 

7  UNVC (20) »  UPRI(20),  UPPS(IO),  UPRX(20),  UPRY(20)» 

B  USAS(IO)#  USA  X ( 20 )  ,  WORK (20)  , 

9  BASE (20)  #  T INV (20  )  #  BMKT (  20  )  »  TlN$(20),  COlN(20) 

C 

C  DATA  AND  MODE  INFORMATION 

C 

INTEGER  YN,  PN,  PT,  J,  OPT  1  ,  OPT  2  »  OPT3 
REAL  IRR.  NCF,  I NVE ,  INVO,  I  NCR 
C 

C  INITIALIZE  ARRAYS 

C 

DO  2000  Ks 1 , 20 
ACF (K)rO.O 
ATE (K)=0.0 
ATP(K)=0.0 
DEbT (K ) sO  ,0 
DEPP(K)  =  0.0 
EOUI(K)  =  0.0 
FACC(K)  =  0.0 
F MFC  ( K  )  =  0.0 
FXR(K)  s  0.0 
GRIR(K)=0.0 
GSAL(K)=0.0 
INVE(K)  s  0.0 
OTFC(K)  =  0.0 
TOFC(K)=0.0 
NCF  (K  )  =  0.0 
PCON ( K ) =0 . 0 
REIN(K)s0.0 
TOVC(K)sO.O 
TMVC(K)=0.0 
TSVC(K)  =  0.0 
UNVC (K)sO.O 
US  AL  (K  )  =  0.0 
(IPRI(K)  =  0.0 
WORK (K )=0.0 
RASF(K)  s  0.0 
TINV(K)  =  0.0 
HMKT(K)  =  0.0 
TIMS(K)  =  0.0 
COIN(K)  =  0.0 
2000  CONTINUE 
C 

C  Input  format 

C 

)  1  0  FORMAT  (  1  3A6) 

120  F(lRMAT(9Ffe.9,9X,I2,3(3X,Jl),3X,F9.0,2(3X,P0.9)) 

121  FORMAT(55X,2F10.0) 

130  FORMAT  (F7.3,F8.0,F10.3,5F10.0) 

131  FORMAT (BX, 12) 

132  FORMAT(F7.3,F0.O,F1O.3,9F1O.O,2F5.9) 

C 

C  OUTPUT  FORMAT 

C 

210  FORMAT  (  1 H 1 , 25  * , 1 3*6 ) 


DEBT (20)  , 
FACC (20) , 
GSAl (20) , 
OTFS ( 1 0) , 

TOFC (20) , 
UMFS(IO), 
US*L (20)  , 


13 


63. 

60. 

65. 

66. 

67. 

68. 
66. 

70. 

71. 
72  . 
7  3. 
7a. 

75. 

76. 

77. 

78. 
76. 

eo. 

81. 

82. 

83. 

8a. 

85. 

86. 

87. 

88. 
86. 

90. 

91. 

92. 

93. 
°a. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 
103. 
ioa. 

105. 

106. 

107. 

108. 
106. 
110. 
111. 
112. 
113. 

1 1  a  . 

115. 

116. 

117. 

118. 

1  19. 
120. 
121 . 
122. 
123. 
12a. 

125. 

126. 

127. 

128. 


211  FOPMAT (1H1 ,25X , 1 346 //////✓/✓/) 

212  FORMAT  (38X,  •  (IM7ESTMFNT  TAX  CREDIT  OF  *',F8.0,'  C  ONS I  DFRE  D  .  )  '  ) 

215  FORMAT (// 

*  '  initial  invfstment--ye ar  o' ,7x, 'effect ive  tax  rate  ', 

1F5. a, St, 'ORIGINAL  CASH  EQUITY', 5X, 'S', F6.0.5X, 'V.C. /TOT  TPAN  RFV=' 
2,F6.a/'  FACILITIES  COST  S' ,F6.0,6X, 'BORROWING  R  A  TE  '  ,  5  X  ,  F5  .  a  ,  5  X  , 
3'ENOING  VALUE  OF  EQUITY  *  * , F 6 . 0 , 5* ,  '  F . C . / T OT  TRAM  PEV=',Fb.a/ 
a'  WORKING  CAPITAL  S'»F6.0,6X, 'REINVESTMENT  RATF  ',F5.a,5x, 
5'FACILITIES  SALVAGE  VALUE  S' ,F6.0,5X, 'DEPR./T .T.R.  =',Fb.U) 

205  F0RMAT(5X,  'TOTAL  INVEST.  *  '  , F 6 . 0 , 6X  ,  '  I  NT E RN AL  ROP  '  , 6X , F 6 . a , 5X , 
l'P.V.  OF  INVEST. (T  =  ' ,F5. a, » )  $  '  , F  6 . 0  *  5X ,  'TAX  COSTS/T.T.R.  =',F6.a 

2/1 oax, • a  .t .  ppofjt/t.r.  s'.Fb.ai 

206  FORMAT (5X, ' TOTAL  INVEST.  $'»F6.0,6X, 'COMPOSITE  POR • , 5X , F 6 . a , 5 X , 

l'P.V.  OF  EQUITY (T= • ,F5. a, • )  S'»F6.0,5X, 'TAX  COSTS/T.T.P.  =',F6.a 

2/1 Oax, 'A.T.  PR0FIT/T.T.P=',F6.a) 

216  FORMAT  (57X,  'FINANCIAL  SUMMARY'/! 

217  FORMAT  (39X, 'OPERATING  CASH  FLOWS  WhERF  COSTS  =  REVENUES'/) 

218  FORMAT  (22X, 'FINANCIAL  SUMMARY  WITH  RREAK-EVEN  ADJUSTED  FACILITIES 
1  COST (S ) *  DEPRECIATION  AND  OVERHEAD'/) 

220  FORMATE'  YEAR-FND  VALUES  ...  ', 

1  'YEAR  1  ',5X, 'YEAR  2 • ,5x, 'YEAR  3',5X,'YEaP  a',5X, 

1 'YEAR  5',5X,'YFAR  6',5X,'YEAR  7',5X,'YFAR  8',5X,'YEAR  6',ax, 

2'YEAR  10') 

221  FORMAT (  •  YEAR-END  VALUES  .  ,  YEAR  11', ax, 'YEAR  12', ax, 'YEAH  13', 

1  ax, ' yf ar  la', ax, 'year  15', ax, 'year  i 6 * , ax,  'year  17', ax, 'year  i«* 

2  , ax, 'YEAR  16', ax, 'YEAR  20 ' ) 

230  format  ( •  yard  thruput',7x,i<hfh.o)/'  trans.  price/unit  •  ,2x, 

1  IOCS', 

1  F6.2,  1  X  ) /ax,  '  TOT  TRAN  REVENUE', IOCS' »F10,0)// 

1'  INTEREST  INC-EXP', 

2  3X, 1 0(F  1  1 .0)// '  MAT.  A  HANOL.  COST • , 1 X , 1 0 C *  '  ,F 1 0 , 0 ) / 

3  '  INV.  TAX  K  INSUR. ' ,2X, 10(F 1 1 .0)/ •  L  A  POP  COST  •  , 6X , J 0 ( F 11 . 0 ) / 3X , 
a  •  TOTAL  VAR  COST', 

5  2X, IOCS', F10.(l)/ax, 'UNIT  VAR  COST  •  ,  3  X  ,  1  0  (  •  S  •  ,  F6 . 2 , 1  X  )  /  / 

6  •  PROFIT  C0NTRI8.', aX, IOCS', F10.0)//'  FIXED  MFG  C0ST',5X, 

7  1 0 C S  '  ,F  10.0  )/ •  OVERHEAD  COST ' , 6X, 1 0 (F 1 1 .0) /ax ,  •  TOT Al  F.C.', 

8  6X , 10 (  •  S' ,F 1 0.0) // '  FACILITIES  COS C , u x , 1 0 ( ' S  '  , F 1 0 . 0 ) / 

6  •  WORKING  CAPITAL ', «x, 10(F1 1 .0)/ax, ' INVESTMENT ' ,6X, 1 0 (' S ' ,F 10.0 ) 

1  //•  DEPRECIATION* ,7X, 10('S* ,F 1 0.0)// '  AFTER  TAX  PROFIT', JX, 

2  IOCS' ,F10.0)/'  A.T.  EARNINGS', 6X, )0(F11  .0)/'  A.T.  NET  CASH  F  L  f>w 

3  '  ,  1  X,  1  0  (F  1  1 ,0)// »  ACUM  net  CASH  FLOW*,  IX, IOCS', FR.l,  '  M  '  ,  1  X  )  /  ) 

231  F  CRM AT  (  '  BEGINING-OF-YE AP  VALUES  FOR  MONIFS  .  .  .'/ 

$  8  X  *  '  BORROWED  ',  ax,  IOCS', F8.1,'M',lx)/8x,'  RE  INVESTED’,  2X, 

1  IOCS'  ,F8. 1  ,  'M',  lx)//) 

239  FORMAT  TaRX, 'SENSITIVITY  ANALYSIS'// 

♦  35X, • INTERNAL  RATES  OF  RETURN  AT  ADJUSTED  INPUT  VALUES'/ 

♦  33XC80  PCT',6X,'60  PCT',5X,'100  PCT',5X,'110  PCT',5X,'120  PCT') 

236  FORMAT  (a6x, 'SFNSITIVITY  ANALYSIS'// 

♦  35X, 'COMPOSITE  RATES  OF  RETURN  AT  ADJUSTED  INPUT  VALUES'/ 

♦  32X , • 80  PCT ' , 6X , ' 60  PCT', 5X, '100  PCT', 5X, *110  PCT', 5X, '120  PCT') 

237  FORMAT  (5XCYAR0  THRUPUT  '  ,  1  5X  ,  5  (F  5 . 3 , 7X  )  ) 

238  FORMAT  C5X, 'TRANS.  PR  I CE /UN  I T » , 1 0 X , 5 ( F5 . 3 , 7X  )  ) 

236  FORMAT  (5X, 'UNIT  VAR  COST ' , 1 UX , 5 CF5 . 3 , 7 X  )  ) 

2U0  FORMAT  (5X, 'TOTAL  F . C . • , 1 7X , 5 C FS . 3 , 7 X ) ) 

261  FORMAT  (5X, 'FACILITIES  COST ' , 1 2X , 5 (F5 . 3, 7X ) /// ) 

C 

C  READ  STATEMENTS 
C 

READ  (5, 110), TITLE 

RE AP(5, 120) , SF  R , WkR , T  A  XP , D I  SR , YN , OPT  1 , OPT  2 , OPT  3 , OREQ , HORT , RTLE 
9EAO(5,121),FAO,  INCR 
■DO  330  K  a  1,YN 

READ  (5,130), UPR l (K ) ,  USALfK),  UMFC(K),  OTVC(K),  FMFC(K),  OTFC(K) 

1  ,  FACC(K),  OEPR(K) 

FAC(K)  s  FACC(K) 

DEP(K)  a  DEP9(K) 


1?9. 
1  30. 
131. 
1  3?. 
133. 
139. 
135. 
1  36. 

137. 

138. 

139. 

190. 

191. 

192. 

193. 
1  «  9  . 

195. 

196. 

197. 

198. 

199. 
150. 
151  . 

152. 

153. 
159. 

155. 

156. 

157. 

158. 

159. 

160. 
161  . 
162. 
163. 
l  6a. 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 
179. 

175. 

176. 

177. 

178. 

179. 

180. 
181  . 
182. 
18J. 
189. 
185. 
1  86. 

187. 

188. 

189. 

190. 
191  . 

192. 

193. 
199. 


330  CONTINUE 

RE 40(5, 1 31 ) ,  NX 
IE (NX.LT. 11  GO  TO  2005 
DO  331  K=1,NX 

Rf 40 (5, 1321,  UPRS  (  K  3  ,  U3AS(K),  UMFS(K),  OTVS(k),  F  MTS  (  K  )  , 
2  OTES(K),  ORFSOO.  ROPS(K),  RTLS(K) 

331  CONTINUE 
C 

C  SEQUENTIAL  analysis  CONTROLS 

c 

JK  s  0 
OP  T  X  =  OP  T  1 
OPTY  =  OP  T  2 
OPT  Z  =  OP  T  3 
ROR  s  RORT 
OPE  =  ORE  Q 

RTL  =  rtle 

EA  2  E  A  0 
RTS  2  I  NCR 
2003  CONTINUE 

IE(JK.EQ.NX)  WRITE  (6,210),  TITLE 
IE(JK.EQ.NX)  GO  TO  339 
JK  s  JK  ♦  1 
OP  T 1  2  OP  T  X 
0PT2  r  OPTY 
OPT  3  =  0PT7 
OREO  2  ORES(JK) 

RORT  2  BORS(JK) 

RTLE  2  RTLS(JK) 

E  A  0  2  FA 
I  NCR  2  RIS 
ENE  =  1.0 
OTE  3  1.0 
0  T  V  2  1 .0 
UNF  2  1.0 
UPR  2  1.0 
USA  2  1.0 

IE ( F  M  F  C ( 1 ).GT .0.1 )  FVE  2  1.0  /  F MF  C  ( 1  ) 

IE (OTFC (l).GT.O.l)  OTE  z  1.0  /  OTFC(l) 

IF  (OTVC  (  1  )  .GT.O.  1  )  OTV  z  1.0  /  OTVCM) 

IF  (tlMFCm.f.T.0.1)  UMF  2  1.0  /  UMF C  (  1  ) 

IF  (llPRI(l),GT.n.t)  UPR  2  1,0/  UPRI(l) 

TF  aiSAL n J.GT.O.l )  USA  2  1.0/  USAL(J) 

DO  2002  K 2 1 , N X 

IF  (UPRS(K)  .LT.0.1  )  IJPRSCK)  2  UPRI(l) 
if  (usas(k)  .lt.o.i  )  usas(k)2  usai.m) 

IF (UMFS(K) .LT.O.  1  )  UMFS(K)=  U^FC(l) 

IF COTVS(K). LT.0.1  )  OT  vs ( K  )  2  0TVC(1) 

IF (FMFS(K). LT.0.1)  FMFS(K)r  FmFC(1) 

IF (OTES(K). LT.0.1  )  OTFSfK)r  OTFC(l) 

200?  CONTINUE 

IF  (POPT.LT.  0.0001  )  RORT  2  PPR 
TE (OREO. IT. 0. 0001  )  OREO  2  ORE 
IE (PTLF .LT. 0.0001  )  RTLE  2  RTL 
DO  2009  K z  1 , YN 

UPRI(K)  2  (L'PPS(JK)  *  UPR  I  (K )  )  *  UPR 

USAL(K)  e  (USAS(JK)  *  USAL(K))  *  USA 

UNFC(K)  s  (IJMFS(JK)  *  UMEC(K))  *  UNF 

OTVC(K)  2  (OTVS(JK)  *  OTVC(K))  *  OTV 

E ME C (K )  8  (EMES(JK)  *  EMFC(K))  *  F ME 

OTEC(K)  8  (OTFS(JK)  «  OTFC(K))  *  OTE 

PEPR(K)  2  DEP(K) 

FACC (K)  2  FAC(K) 

2009  CONTINUE 
2005  CONTINUE 

TAXzl-TAXR 
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PT  *  0 

00  70  Ka  1,YN 

FXR(K)  a  (OTFC(K)  ♦  O.OOD/FAO 
UP»Y(K)a  UPRI(K) 

ANALYSIS  ANO  PRINT  OPTION  CONTROLS 

IF(OPTl.LT.l)  GO  TO  2011 
PNa  OP T 1 
J  *  0 

GO  TO  1000 

IF (0PT2.LT  .  1  )  GO  TO  2012 
PNs  0PT2 
J  a  26 
IRE  a  l 
GO  TO  1000 

IF (0PT3.LT. n  GO  TO  2003 
PNs  0PT3 
J  a  26 
IBE  a  2 

CASH  FLOW  CALCULATIONS 

CONTINUE 
00  1005  Ksl.VN 

GSAL(K)  s  UPRI(K)  ♦  USALftO 

TMVCCK1  s  UNFC(K)  *  USAL(K) 

TPFC(K)  a  FMEC(K)  ♦  OTFC(K) 

BASE (K  )  a  ((TMVC(K)  ♦  OTVC(K)  ♦  TOFC(K))  *  WKR) 

TINS(K)  a  0.01  *  BASE (X ) 

BMKT(K)  a  GSAL(K)  *  WKR 

IF (BMKT(K).LT.RASt(K))  BASE (K  )  a  BMKT(K) 

TINV(K)  a  SEP  *  BASEOO 
TSVC(K)  a  T  INV (K ) 

COIN (K )  a  TINV(K)  ♦  TINS(K) 

TOVC(K)  a  TMVC(K)  ♦  COIN(K)  ♦  OTVCCKl 
CONTINUE 
00  1010  Kal.YN 
USX  a  1.0 

IF(USAL(K).GT.1.0)  USX  a  1.0  /  USAL(K) 

UNVC(K)  a  TOVC(K)  *  USX 
TMFC(K)  a  TOFC(K)  ♦  TOVC(K) 

CONTINUE 

WOR  a  WKR  *  (TMFC(l)  -  TSVC(l)) 

T0WR(1)  a  WKR  *  (TMFC(2)  -  TSVC(2>) 

WORK ( 1 )  a  T0WR(1)  -  WOR 
INVF(I)  a  F4CCC1)  ♦  WORK ( 1 ) 

00  1020  K a 3  »  YN 

IF(USAL(K).LT.1.0)  GO  to  1021 
TOWR(K-l)  a  WKR  *  (TMFC(K)  -  TSVC(K)) 

WORK(K-I)  a  TOWR(K-l)  -  TOwR(K-2) 

INVE(K-n  a  FACC(K-l)  ♦  wOPK(K-l) 

IK  a  K 
CONTINUE 
SUMF  a  F AO 
SURD  a  0.0 
FACC(IK)  a  0.0 
00  1030  Kal.YN 
SUMF  a  SUMF  ♦  FACC(K) 

SUMO  a  SUMO  ♦  DEPR(K) 

CONTINUE 

SALF  a  SUMF  -  SUMO 

FACC(IK)  s(-1.0)*  SALF 

WORK (IK)  a  TOWR(IK-l)  *(-1.0) 

INVE(IK)  a  FACC(IK)  ♦  WORK(IK) 

1NV0  a  F  AO  ♦  WOR 


non 


8B*L  s  0»EQ  -  I NVO 
AC Fx  s  I NVO  *(-1.0) 

IF (OREO. IT. 1 .0)  PORT  s  0.0 
I F (OREO .LT ,1.0)  RTLE  s  0.0 
DO  107*5  Ksl.YN 
IF  (BBAL )9a,99,95 
9a  RElN(K)s  BBAL  *  «ORT 

DEBT (K ) s  88 AL  *  (-0.001) 

EOUl(K)  :  0.0 
GO  TO  96 

95  IF(USAl (K).LT.l.O)  RTLE  =  DISR/TAX 

REIN(K)s  BBAL  *  RTLE 
DEBT (K  )s  0.0 
EQUI(K)  S  RRAl  *  0.001 
GO  TO  96 

90  REIN(K)  s  0.0 
DEBT ( K ) s  0.0 
EOUI(K)  =  0.0 

96  CONTINUE 

GPIR(k)  a  R£IN(K)  4  GSAL(K) 

PCON(K)  a  GRIR(K)  -  TOVC(K) 

ATP(K)  s  TAX  A  (PCON(K)  -  TOFC(k)  - 
IF (K.EO.l )  ATP ( 1  )  s  ATP(l)  ♦  INCP 
ATE(K)  s  ATP  (X )  4  DEPR(K) 

NCF(K)  s  ATE(K)  -  IniVE(K)  4  0.0001 
ACFX  s  ACFX  4  NCF(K) 

ACF(K)  s  ACFX  *  0.001 
BRAL  a  ACFX  4  OREQ 
1075  CONTINUE 

IF (PT.EQ.l)  GO  TO  801 

RATE  OF  RETURN  CALCULATIONS 

J  —  J  4  1 

IF (J.GT ,26)  GO  TO  31 
IF (opeq.lt. 10)  GO  TO  9 
IF(RBAL)  7,7,8 

7  RR  *  100.0 

GO  TO  80 

8  RLG  a  ALOG(PRAL/OREQ)/  yn 
PIG  *  EXP(RLG) 

RPs  PLG  -  1.0 
GO  TO  80 

9  PRa  D I  SR 
I X  =  3 

I  X  X  =  6 

IC  =  3 
1CC  =  6 

IMs3 

I  mms6 

700  CONTINUE 

PVR  a  (-INV0) 

DO  71  Ksl.YN 

PVP  sPVR  4  NCF(K)/(1.0  4  R  R )  *  *  K 

71  CONTINUE 

IF (IX.E0.1XX)  GO  TO  7a 
IF (PVR  )  73,80,72 

72  IX*1 

RRsPR  4  0,100 
GO  TO  700 

73  iXXsl 

PPcRR  .  0.100 
IF (RR.LT.-0.9)  GO  TO  80 
GO  TO  700 

7a  IF(IC.FO.ICC)  GO  TO  77 
IF(PVR)  76,80,75 


DF  PP  (K  )  ) 


327. 
32  8. 
3  24. 
330. 
331  . 
33?. 

333. 

334. 

335. 

336. 

337. 

338. 
334. 
340. 
341  . 
34  2. 

343. 

344. 

345. 

346. 

347. 

348. 
344. 
350. 
351  . 

352. 

353. 

354. 

355. 

356. 


75  IC*1 

RR  =  PR  ♦  0.010 
GO  TO  700 

76  ICC= 1 

RR  =  ep  _  0.010 
GO  TO  700 

77  IMIP.EQ.IHM1  GO  TO  80 
IMPVRT  74,80,78 

78  IM=  1 

RR:RR  ♦  0.001 
GO  TO  700 
74  I  MM: 1 

P  R  sRB  -  0.001 
GO  TO  700 
80  IRR(J)=RP 

IMJ-1  )333,31 , 33 

PRESENT  VALUE  CALCULATIONS 

31  PVI  :  0.0 

TP  (OREO. LT. 1.0)  GO  TO  3 

PVI  :  (  8R AL / ( 1 . 0  ♦  D1SR)**YN)  -  OREO 

C-0  TO  4 

3  DO  32  K  :  1 , YN 

PVI  =  PVI  ♦  NCP(K)/((1.0  *  DISP)**K) 

32  CONTINUE 

PVI  =  PVI  -  I N VO 

4  CONTINUE 

IP(J.GT.?6)  GO  TO  (870,880),  IRE 

33  GO  TO  (808,81  0,810,81  0,810, 820, 820, 820, 820, 820, 830, 830, 830, 830 

1830, 040, 040, «40, 840, 840, 850, 85 0,850, 850, 650, 860), J 

SENSITIVITY  ANALYSES 

808  PVX  :  PVI  ♦  nPEQ 
FAX  =  F  A  0  *  0.1 
RINX  :  I  NCR  *  0.1 
OPX  =  ORFQ  *  0.1 
VP  =  0.0 
FR  s  0.0 
PP  s  0.0 
GP  s  0.0 
OR  s  0.0 

DO  1 065  *  *  1 , YN 

TFCX(K)  :  TOFC(K)*0.1 
EACX(K)  =  PACC(K)*0.1 
DEPX(K)  =  DE  PP(K)*0.1 
TVCX(K)  s  T0VC(K)*0.1 
USAX(K)  :  USAL(K)*0.1 
UPRX(K)  :  UPP I (K ) *0 . 1 
VR  s  VR  ♦  TOVCCO 
PH  t  FR  ♦  TOFC(K) 

DR  :  DR  ♦  DEPR(K) 

PR  s  PP  ♦  ATP(Y) 

GR  :  GP  ♦  GPIP(K)  -  REINOO 
1085  CONTINUE 

GR  X  =  1.0 /GR 
VC TR  :  VR  *  GPY 
FCTR  =  FR  *  GR  X 
DPTR  =  PR  *GP  X 
P  T  PP  s  PR  *  GR  X 

TXTP  s  1.0  -  VCTR  -  F  C  Y  P  -  PTPS  -  DPTR 
810  DO  41  K: 1 , YN 
41  TOFC(K)  =  TFCx(K)*(J+7) 

GO  TO  1006 

820  IF (J-6)333,H?1 ,8?2 


00  <444  K s i ,  yn 
I  TOFC(K)  x  TFCXfK  )*10.0 
'  00  «5  Ksl,VN 
F4CC(K)  x  F4CX (K ) * ( J*2) 
i  DEPfi(K)  x  0EPX(K)*(J42) 

F  40  s  F  4  X  *  (J  +  2) 

OREO  s  0»X  *  (  J  +  2) 

INCR  s  RINX  *  (J+2) 

GO  TO  1006 

i  IF(J-11)333,831,832 
on  <46  *xl,YN 
F4CC(tO  *  F4CX(K)*10.0 
»  DEPR(K)  x  DEPX (K ) *  1 0. 0 
F40  s  F  4  X  *  10.0 
OREO  s  OR X  *  10.0 
INCR  =  RINX  *  10.0 
(  00  <4  7  Kx1,VN 
’  TOVC(K)s  TVCX(K)*( J-3) 

GO  TO  1006 

I  IF(J-16)333,8<H  ,8<42 
00  48  K=1,YN 
l  TOVCCK)*  TVCX(K)*10.0 

>  00  49  K=1,YN 

>  USAl(K)sllSAXfK)*(J-8) 

GO  TO  1003 

l  IF  (J-2U333,851 ,852 
l  00  50  Ks1,yn 
)  US4L(K)sUS4X(K)*10.0 
»  00  51  K=1,YN 
[  UPRI(K)=UPRX(K)«(J-13) 

GO  TO  1003 

)  IF (J-26)333,861 ,870 
I  00  52  K=1,YM 
’  UPRHK)=UPR*rK)*10.0 
PT  x  l 
GO  TO  1000 

WRITE  ST4TEMFNTS 

WRITE  (6, 210), TITLE 

IF ( I  NCR .GT  .1.05  WRITE (6,212) ,  INCR 

IF (OREO. IT .1.0)  RTLE  *  0.0 

WRITE (6,215) ,T4XR, OREO, VCTR,F  40, PORT, BRAl,FCTR,WOR, WTLE.S4LF ,OPTR 

IF (OREO. GT. 1.0)  GO  TO  800 

WRITE (6, 205) , 1NV0, IRR(1 ) , P I  SR , P VX , T X T P , PT PR 
GO  TO  805 

I  WRITE (6,206) , INVO, IRR( 1  ),DISR,PVX,TXTR,PTPR 

>  IF(OPTl.lT.l)  GO  TO  802 

WR1TE(6,216) 

GO  TO  806 

>  IF ( OpT?.L  T , 1 )  GO  TO  803 

WRITE (6,217) 

GO  TO  806 

l  IF (OPT 3.1 T.l)  GO  TO  2003 
WRITE(6,218) 

»  WRITE  (6,220) 

WRITE (6, 230), (US4L (K ) ,K=1 ,  10) , (UPRI (K ) ,K  =  1 , 1 0 ) , (GS4L (k  ) , ks  1 , 1 0 ) , 
l(REIN(K),Ksl,iO), 

1  (  TMVC  (W),Kxl  ,10),  (COIN(K)  ,Kx1  ,  10)  ,  (OTVC(K)  ,*<  =  1  ,  1  0),  (  T  0  VC  (  K  )  ,  K  s  1  ,  1  0 
2) , (UNVC(K) ,Kx1 ,10), (PCON(K) ,Kr 1 , 10), (F  MF  C (K  ) , K s  ] , 

310), (OTFC(K),Kxl , 10), (TOFC(K) ,Ksl , 1 0), (F4CC(K),Kxl , 1 0) , (WORK (K) ,K= 
<41  ,  10),  (INVE  (K)  ,K  =  1  ,  10),  (DEPP  (K)  ,K  =  1  ,  10)  ,  (4TP(K),Kxl  ,  J  0)  ,  (4TE(K)  ,Ks 
51 , 10), (NCFCK).Kxl , 10), (4CF (K),K  =  1 , 10) 

IF (OREO. GT .1.0) 

TWRTTE (6,231) , (OEBT(K) ,Ksl , I o) ,  (E  CUT (K),K*1,10) 

IFfVN.LT. 11)  GO  TO  809 


WPITE(6,211),  TITLE 
WRITE (6,221 ) 

WRITE  (6,230)  ,  (USAL  (K)  ,*  =  1  1 ,20)  ,  (UPRI  (*  )  ,*■  =  1  1 ,20)  ,  (GSAL  (K)  ,K  =  1  1 ,20) 

1  ,(REIN(k),Ks11,20),(GRIR(k),k=11,20},(TwvC(«),k=11,20),(C0IN(k), 

2  K  =  1  1 ,20)  ,  (OTVC (K ),K  =  1 1 ,20) , (TOVC (K ) ,k  =  1 i ,20) , (UNVC (K ) ,K  =  1 1 ,20)  , 

3  CPCON(K)fKslt,20),(FMEC(K),K=11,20),(OTEC(K),Ks|l,20),(TOFCtK), 

U  K=11.20),(FACC(K),K=11,20), ( WOPK (K)  ,K=1 1 ,20)  , f TNVF (K) .Ksl  1 ,20) , 
n  (DEPR(K),K  =  n,20),rATP(K),k  =  n,20),(ATP(K),K  =  n,20), 

5  (MCFfK),K  =  H,20),(ACF{K),K  =  n,20) 

IF  ( OREO . GT . I ,0) 

JWRITE (fc,231) , (DEBT (K) ,K=J1 ,20) , (EOUI fK ) ,KelJ ,20) 

BOR  CONTINUE 

IF (OREO.  IT. 1 ,0)  WRITF (6,235) 

IF  ( OREO.GT.t  ,0)  WRITF  (f.,23fc) 

WRITF (6,23P) , flRR(J) ,J=!  7,21  ) 

WRITE  (6,237), (IRP(J).J  =  22, 26) 

WRITE  (6,239), ( I  PR ( J ) , J = 1 2 , ! 6 ) 

WRITE (6,240) , (IRR(J),J=2,fr) 

WRITE (6,?ttl ) , (IRP (J) , J  =  7, 1  1) 

PNsPN  -  1 

IF (PN.GT .0)  GO  TO  B01 
PT=  0 

IF (OPT  1 .LT . 1 )  GO  TO  5<l 
OPT  1  =  0 
GO  TO  2011 

5«  IF (OPT2.1 T  .  1  )  GO  TO  56 
DO  55  K  *  1,  VN 

55  UPRI(K)  s  UPRV(K) 

OPT  2  =  0 
GO  TO  2012 

56  IF (OPTS, l T  ,  1  )  GO  TO  2003 
IF  (IPE.E0.2)  GO  TO  2003 
GO  TO  2012 

C 

C  UNIT  PRICE  BREAK-EVEN  CALCULATION 

C 

B70  SGSL  =  0.0 

DO  87  K=1,YN 

87  SGSL  s  SGSL  ♦  GSAL(K)/(1.0  ♦  OISR)**K 
PR HE  s  1.0  -  (PVI/(TAX  *  SGSL)) 

DO  63  Ksl,YN 

63  UP  P I  ( K  )  r  IJPPI(K)  *  PRBF 
IF(PVI)  60,900,61 

60  IF (PVI  +  1  00.0)  1  000, 900, ®00 

61  IF (PV 1-100.0)  900,  900,  1000 

900  J  s  0 

GO  TO  1000 
C 

C  FACILITIES  AND  DEPRECIATION  PREAK-FVEN  CALCULATIONS 

C 

880  FARE  *  1  ♦  (fPVI  *  0.3)/  F*0) 

F  A  0  =  FAD  *  FA  BE 
OPED  =  OREO 
I  NCR  s  I  NCR  *  FARE 
DO  65  K s 1 , Y N 
DEPR(K)s  DEPR(K)  *  FARE 
FACC(K)=  FACC(K)  *  FARE 
OTFC(K)  a  FXR(K)  *  F  AO 

65  CONTINUE 

IF (F AU.LT . 1 .0)  GO  TO  901 
IF(PVI)  66,901,67 

66  IFfOvl+100.0)  10O0,901,9Oj 

67  IF (PVI-1 00.0)  901,  901,  1000 

901  Js  0 
GO  TO  1000 

333  GO  TO  2003 
3S«  STOP 
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